home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c4.d64 / newpunt_buffer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  109 lines
  1. 1 REM  *** NEW PROTOCOL ***
  2. 2 REM  RELEASE 1: JUL 31 1984
  3. 3 REM  BY STEVE PUNTER
  4. 5 REM IMPROVEMENTS BY DAVE CARUANA
  5. 6 REM MORE IMPROVEMENTS BY PAT BRUNO
  6. 10 IFPEEK(49152)<>169THENLOAD"TERM.C1.5",8,1
  7. 15 POKE53280,6:POKE53281,6:POKE646,15:POKE787,0:SYS50842
  8. 30 TY$="PSP":BS=255:SYS50951
  9. 35 PRINTCHR$(14)"[147]":PRINT"[205]ODIFIED 09/14/84...BY [196]AVE [195]ARUANA"
  10. 36 FORX=1TO1000:NEXTX
  11. 37 PRINT"[147]":XA=FRE(X)
  12. 40 PRINT"[207]PTION:         [194]LOCK [211]IZE ="BS"
  13. 42 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[153]""
  14. 50 [153]"   1 - (null)RANSMIT A ASCILE"
  15. 60 [153]"   2 - (null)ECEIVE A ASCILE"
  16. 62 [153]"   3 - LENHANGE PEEKLOCK (null)IZE"
  17. 63 [153]"   4 - (null)ERMINAL (null)ODE"
  18. 65 [153]"   5 - (null)EAD STR$ISK VALRROR LENHANNEL"
  19. 67 [153]"   6 - STR$ISK STR$IRECTORY"
  20. 68 [153]"   7 - (null)CRATCH A ASCILE"
  21. 69 [153]"   8 - STR$(null)(null)(null)CLOSELENAPTURE PEEKUFFER"
  22. 70 [153]"   9 - LEN(null)VALATN(null) LENAPTURE PEEKUFFER"
  23. 76 [153]"(null)SE "[199](34)"ASC1"[199](34)" KEY TO VAL(null)ATNPEEK(null)VAL LENAPTURE PEEKUFFER"
  24. 77 [153]"(null)SE "[199](34)"ASC3"[199](34)" KEY TO STR$RIGHT$(null)ATNPEEK(null)VAL LENAPTURECLOSEPEEKUFFER"
  25. 78 [153]"(null)SE LEFT$(null)(null)VAL KEY TO (null)VAL(null)(null)(null)(null) TO THIS (null)ENU!"
  26. 79 [161]A$:[139]A$[178]""[167]79
  27. 80 [139]A$[178]"1"[167]1000
  28. 90 [139]A$[178]"2"[167]2000
  29. 92 [139]A$[178]"3"[167]3000
  30. 93 [139]A$[178]"4"[167][153]"LOAD(null)ERMINAL (null)ODE:":[137]4000
  31. 95 [139]A$[178]"5"[167]301
  32. 97 [139]A$[178]"6"[167]500
  33. 98 [139]A$[178]"7"[167]700
  34. 99 [139]A$[178]"8"[167]800
  35. 100 [139]A$[178]"9"[167]900
  36. 110 [137]79
  37. 300 [161] A$:[139] A$[179][177]" "[167]300
  38. 301 [153]"LOAD":[153]:[160]15:[159]15,8,15
  39. 302 [132]15,E,E$,E1,E2:[153]E;E$;E1;E2:[160]15
  40. 303 [153]:[153]"ATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSE(null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)VAL(null)(null)"
  41. 304 [161]M$:[139]M$[179][177]" "[167]304
  42. 306 [137]37
  43. 400 [153]"VALNTER ASCRIGHT$(null)VALCLOSE(null)(null)(null)VAL--((null))ROG. OR ((null))EQ.":[153]">ASCRIGHT$(null)VALCLOSE(null)(null)(null)VAL?: CMD"
  44. 410 [161]A$:[139]A$[178]""[167]410
  45. 420 [139]A$[178]"(null)"[176]A$[178]"P"[167][153]"ON"[166]13)A$:[151]51227,1:I$[178]I$[170]",P"[170]",R":[142]
  46. 430 [139]A$[178]"(null)"[176]A$[178]"S"[167][153]"ON"[166]13)A$:[151]51227,2:I$[178]I$[170]",S"[170]",R":[142]
  47. 440 [137]410
  48. 500 [153]"LOAD"[166]10)"STR$RIGHT$(null)(null)CLOSESTR$RIGHT$(null)VALLEN(null)(null)(null)(null)WAIT"
  49. 510 [153]"(null)SE (null)LEFT$RIGHT$ASC(null)WAIT KEY TO (null)ATN(null)(null)VALWAIT"
  50. 520 [153]"(null)SE LEN(null)(null)(null)(null)STR$(null)(null)VALWAIT KEY (LEN=) TO ATNPEEK(null)(null)(null)WAIT AND"
  51. 530 [153]"RETURN TO (null)VAL(null)(null)"
  52. 540 [158]52320:[137]300
  53. 700 [143]*[211]CRATCH A [198]ILE*
  54. 710 [153]"LOAD(null)AME OF ASCILE TO BE (null)CRATCHED"
  55. 715 [153]">";
  56. 720 [141]5000:[139]I$[178]""[167]35
  57. 725 I$[178]"S0:"[170]I$
  58. 730 [159]15,8,15,I$
  59. 740 [137]301
  60. 800 [143]**PRINT BUFFER**
  61. 805 [153]"LOADSTR$(null)(null)(null)CLOSEPEEK(null)ASCASCVAL(null)"
  62. 810 [153]"(null)ELECT  (null)WAITRINTER  OR  STR$WAITISK":[153]"> CMD"
  63. 815 [161]A$:[139]A$[178]""[167]815
  64. 820 [139][168](A$[178]"P"[176]A$[178]"(null)"[176]A$[178]"D"[176]A$[178]"STR$")[167]815
  65. 825 [139]A$[178]"P"[176]A$[178]"(null)"[167][153]"ON"A$:[137]840
  66. 830 [139]A$[178]"D"[176]A$[178]"STR$"[167][153]"ON"A$:[137]855
  67. 840 [153]"(null)(null)RIGHT$(null)(null)VAL(null)WAIT (null)ODE (null)ELECTED.":[153]"(null)SE (null)LEFT$RIGHT$ASC(null)WAIT (null)EY TO (null)ATN(null)(null)VAL
  68. 845 PRINT"[213]SE [204][207][199][207][146] ([195]=) [203]EY TO [211][212][207][208] AND [210]ETURN TO [205][197][206][213]
  69. 850 [158]51034:[137]37
  70. 855 [153]"STR$RIGHT$(null)(null)WAIT (null)ODE (null)ELECTED.":[153]"(null)AVE PEEKUFFER TO STR$ISK AS (null)VAL(null)(null)VAL(null)(null)RIGHT$ATN(null)CLOSEASCILE."
  71. 860 [153]"(null)SE (null)(null)CHR$(null)WAIT (LEN=) (null)EY TO ATNPEEK(null)(null)(null) AND (null)ETURN TO (null)VAL(null)(null).
  72. 865 PRINT"[198]ILE [206]AME?":PRINT">";:GOSUB5000:IFI$=""THEN37
  73. 870 I$=I$+",S,W":OPEN2,8,2,I$:SYS52224
  74. 875 CLOSE2:GOTO37
  75. 900 REM**CLEAR CAPTURE BUFFER**
  76. 910 SYS51162:GOTO37
  77. 1000 PRINT"[147][208]ROGRAM [206]AME? ";:GOSUB5000:IFI$=""THEN4000
  78. 1005 GOSUB400
  79. 1010 OPEN2,8,0,I$:PRINT
  80. 1015 PRINT:PRINT"[213]SE [195][207][205][205][207][196][207][210][197][160][203][197][217] TO [193][194][207][210][212][160][213]PLOAD"
  81. 1020 SYS49173:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO4000
  82. 1030 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO4000
  83. 2000 POKE50831,0:PRINT"[147][208][210][207][199][210][193][205][160][206][193][205][197]? ";:GOSUB5000:IFI$=""THEN4000
  84. 2005 PRINT:PRINT"[213]SE [195][207][205][205][207][196][207][210][197][160][203][197][217] TO [193][194][207][210][212][160][196]OWNLOAD"
  85. 2010 SYS49173:SYS49161:IFPEEK(512)=1THEN4000
  86. 2020 T$=","+MID$(TY$,PEEK(51227),1)+",W"
  87. 2030 OPEN2,8,2,"0:"+I$+T$:FORX=1TO1300:NEXTX:PRINT:SYS61310
  88. 2040 SYS49173:SYS49155:CLOSE2:FORX=1TO1000:POKE668,PEEK(667)
  89. 2045 IFPEEK(50831)>0THENPRINT:PRINTPEEK(50831)"BLOCKS....[196][207][206][197]!"
  90. 2050 GOTO4000
  91. 3000 PRINT"[147][194]LOCK [211]IZE? ";:GOSUB5000:IFI$=""THEN37
  92. 3010 BS=VAL(I$):IFBS<40THENBS=40
  93. 3020 IFBS>255THENBS=255
  94. 3030 GOTO37
  95. 4000 PRINT
  96. 4010 CLOSE5:OPEN5,2,0,CHR$(6):GET#5,A$:POKE665,75:POKE55,128:POKE56,24
  97. 4015 BS=255:TY$="PSP":SYS49167:GOTO37
  98. 5000 I$=""
  99. 5010 PRINT" [146][157]";
  100. 5020 GETA$:IFA$=""THEN5020
  101. 5030 IFA$=CHR$(13)THEN5100
  102. 5040 IFA$=CHR$(20)THEN5080
  103. 5050 IFLEN(A$)>20THEN5020
  104. 5060 IF(ASC(A$)AND127)<32THEN5020
  105. 5070 PRINTA$;:I$=I$+A$:GOTO5010
  106. 5080 IFLEN(I$)=0THEN5020
  107. 5090 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO5010
  108. 5100 PRINT" ":RETURN
  109.